home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / expand53.zip / XPDEMO.ZIP / XPMOUSE.PRG < prev    next >
Text File  |  1992-08-12  |  2KB  |  62 lines
  1. * ------------------------------------------------------------------------
  2. * Module......:    XPMOUSE.PRG
  3. * Title.......: MOUSE part of the Expand Library Demonstration Program
  4. * Author......:    Pepijn Smits.
  5. * Date........:    July/August 1992
  6. * Copyright...:    (c)1992 by Softwarebureau Pepijn Smits
  7. * Notes.......:    Clipper 5.01 Demo of the Expand Library
  8. *        Some general MOUSE functions
  9. *        See XPDEMO.RMK For Compile and Link instructions.
  10. * ------------------------------------------------------------------------
  11.  
  12. Static MouseLan := {'English','French','Dutch','German','Swedish','Finnish','Spanish','Portugese','Italian'}
  13. Static MouseTyp := {'(n/a)','Bus','Serial','InPort','PS/2','HP'}
  14.  
  15. Function MousInfo()
  16. if XPmouseThere()
  17.     XPalert('~Mouse~ Information',;
  18.         PadR('Mouse Installed.......: '+if(XPmouseThere(),'Yes','No '),60)+";"+;
  19.         PadR('Mouse Buttons.........: '+nTrim(XPmouseButoons()),60)+";"+;
  20.         PadR('Mouse Driver version..: '+Str(XPmouseVer()/100,4,2),60)+";"+;
  21.         PadR('Mouse Sensitivity.....: '+Str(XPmouseSensitivity(),4,0),60)+";"+;
  22.         PadR('Assisted Mouse........: '+if(XPmouseAssist(),'Yes','No '),60)+";"+;        
  23.         PadR('Mouse Language........: '+MouseLan[XPmouseLan()+1],60)+";"+;
  24.         PadR('Mouse Type............: '+MouseTyp[XPmouseTyp()+1],60))
  25. else
  26.     XPalert('~Mouse~ Information',;
  27.         'Mouse Information is not available,;'+;
  28.         'as there is no Mouse installed, install your Mouse or the;'+;
  29.         'Mouse driver (MOUSE.COM) if you want to use the Mouse.')
  30. end
  31. Return (NIL)
  32.  
  33. Function MousAssi()
  34. XPmouseAssist(XPask(' ~Assisted~ Mouse','Do you want ~Assisted Mouse Pointer Movement~ On?'))
  35. Return (NIL)
  36.  
  37. Function MousSet()
  38. if XPmouseSet()
  39.     XPmouseSet(XPask(' ~Mouse~ Set','Set the Mouse "~On~"?'))
  40. else
  41.     XPmouseSet(!XPask(' ~Mouse~ Set','Set the Mouse "~Off~"?'))
  42. endif
  43. Return (NIL)
  44.  
  45. Function MousSens()
  46. Local i := XPalert(' ~Mouse~ Sensitivity ',;
  47.     'Set the ~Mouse sensitivity to:',;
  48.     {'~V~ery slow','~S~low','~M~edium','~F~ast','E~x~tremely Fast'})
  49. do case
  50.     case i = 1
  51.         XPmouseSens(10)
  52.     case i = 2
  53.         XPmouseSens(35)
  54.     case i = 3
  55.         XPmouseSens(60)
  56.     case i = 4
  57.         XPmouseSens(75)
  58.     case i = 5
  59.         XPmouseSens(95)
  60. endcase
  61. Return (NIL)
  62.